Friend Class GestProyecto

    Friend Sub CursorRaton(ByVal Reloj As Boolean)

        If Reloj = True Then
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Else
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        End If

    End Sub

End Class
Friend Class LineaPedido

    Private _Codigo As String
    Private _Articulo As String
    Private _Cantidad As Integer
    Private _Precio As Double
    Private _Dtos As Decimal
    Private _IVA As Decimal
    Private _RE As Decimal
    Private _Cuota As Double
    Private _Total As Double
    Private _NuevoReg As Boolean

    Sub New(ByVal Codigo As String, ByVal Articulo As String, ByVal Cantidad As Integer, _
    ByVal Precio As Double, ByVal Dtos As Decimal, ByVal IVA As Decimal, ByVal RE As Decimal, _
    ByVal Cuota As Double, ByVal Total As Double, ByVal NuevoReg As Boolean)

        _Codigo = Codigo
        _Articulo = Articulo
        _Cantidad = Cantidad
        _Precio = Precio
        _Dtos = Dtos
        _IVA = IVA
        _RE = RE
        _Cuota = Cuota
        _Total = Total
        _NuevoReg = NuevoReg

    End Sub

    Default Public ReadOnly Property Item(ByVal index As Integer) As String

        Get
            Select Case index
                Case 0
                    Return _Codigo
                Case 1
                    Return _Articulo
                Case 2
                    Return _Cantidad
                Case 3
                    Return _Precio
                Case 4
                    Return _Dtos
                Case 5
                    Return _IVA
                Case 6
                    Return _RE
                Case 7
                    Return _Cuota
                Case 8
                    Return _Total
                Case Else
                    Return _NuevoReg


            End Select

        End Get
    End Property

End Class

Friend Class LineasPedido
    Inherits System.Collections.CollectionBase

    Public Function add(ByVal value As LineaPedido)

        Return List.Add(value)

    End Function

    Default Friend Property Item(ByVal index As Integer) As LineaPedido

        Get
            Return DirectCast(List(index), LineaPedido)
        End Get
        Set(ByVal value As LineaPedido)
            List(index) = value
        End Set
    End Property

    Public Sub Insert(ByVal index As Integer, ByVal value As LineaPedido)
        List.Insert(index, value)
    End Sub

End Class